home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbmdixpl / form1.frm < prev    next >
Text File  |  1995-05-07  |  2KB  |  66 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form 0"
  4.    ClientHeight    =   3765
  5.    ClientLeft      =   1455
  6.    ClientTop       =   2625
  7.    ClientWidth     =   6390
  8.    Height          =   4170
  9.    Left            =   1395
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   3765
  13.    ScaleWidth      =   6390
  14.    Top             =   2280
  15.    Width           =   6510
  16.    Begin Label Label1 
  17.       AutoSize        =   -1  'True
  18.       Caption         =   "This is a MDI Child Window"
  19.       Height          =   192
  20.       Index           =   2
  21.       Left            =   240
  22.       TabIndex        =   2
  23.       Top             =   1320
  24.       Width           =   2256
  25.    End
  26.    Begin Label Label1 
  27.       AutoSize        =   -1  'True
  28.       Caption         =   "and a floating Toolbar"
  29.       Height          =   192
  30.       Index           =   1
  31.       Left            =   240
  32.       TabIndex        =   1
  33.       Top             =   840
  34.       Width           =   1848
  35.    End
  36.    Begin Label Label1 
  37.       AutoSize        =   -1  'True
  38.       Caption         =   "Sample MDI Application with Common Dialogs"
  39.       Height          =   192
  40.       Index           =   0
  41.       Left            =   240
  42.       TabIndex        =   0
  43.       Top             =   360
  44.       Width           =   3828
  45.    End
  46. End
  47.  
  48. Sub Form_GotFocus ()
  49.    ' Test for Stausline
  50.    Action (" Active Form: " + Me.Caption)
  51. End Sub
  52.  
  53. Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
  54.     Call ShowPopup(Me, x, y)
  55. End Sub
  56.  
  57. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  58.     ' delete, if this is nagging
  59.    If UnloadMode = 0 Then ' User clicked close-box
  60.     If Not Doit("Close " + Me.Caption + " ?") Then
  61.        Cancel = 1
  62.     End If
  63.    End If
  64. End Sub
  65.  
  66.